From: Glenn Morris <rgm@gnu.org>
Date: Fri, 24 Aug 2007 02:57:42 +0000 (+0000)
Subject: (tutorial-directory): Set with eval-at-startup so it gets the right
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~16994
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d6b52259d0abcd1173854909a695232ca9fb0612;p=emacs.git

(tutorial-directory): Set with eval-at-startup so it gets the right
value in an installed Emacs.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index d791a0f6e5a..30d058afabc 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -308,9 +308,14 @@ from being initialized."
 (defvar pure-space-overflow nil
   "Non-nil if building Emacs overflowed pure space.")
 
-(defconst tutorial-directory (expand-file-name "tutorials" data-directory)
+(defvar tutorial-directory nil
   "Directory containing the Emacs TUTORIAL files.")
 
+;; Get correct value in a dumped, installed Emacs.
+(eval-at-startup
+ (setq tutorial-directory (file-name-as-directory
+                           (expand-file-name "tutorials" data-directory))))
+
 (defun normal-top-level-add-subdirs-to-load-path ()
   "Add all subdirectories of current directory to `load-path'.
 More precisely, this uses only the subdirectories whose names